home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / sys / info.lha / Info / Install < prev   
Encoding:
Text File  |  1997-11-13  |  1.2 KB  |  62 lines
  1. ; Installer script for Info, © 1997 by Stephan Rupprecht
  2.  
  3. (set @default-dest "C:")
  4.  
  5.  
  6.  
  7. (if (exists "LOCALE:" (noreq))
  8.    (
  9.       (if (NOT (patmatch @language "english")) 
  10.          (
  11.             (set #src_name
  12.                (cat "Catalogs/" @language "/")
  13.             )
  14.  
  15.             (set #dst_name
  16.                (cat "LOCALE:" #src_name)
  17.             )
  18.  
  19.             (set #src_name
  20.                (cat #src_name "info_com.catalog")
  21.             )
  22.  
  23.             (if (exists #src_name (noreq))
  24.                (
  25.                   (copyfiles
  26.                      (help @copyfiles-help)
  27.                      (source #src_name)
  28.                      (dest #dst_name)
  29.                   )
  30.                )
  31.                (message "Sorry, Info doesn't speak\n" @language "\nat the moment!")
  32.             ) 
  33.          )
  34.       )
  35.    )
  36. )
  37.  
  38. (rename "C:Info" "C:Info.old"
  39.    (help "")
  40.    (prompt  "Do you want a backup of the old info command\n(c:info.old)?")
  41.    (confirm)
  42. )
  43.  
  44. ;--- check os version ---
  45. (set #vernum (getversion "exec.library" (resident)))
  46. (set #vernum (/ #vernum 65536))
  47.  
  48. (if (< #vernum 39)
  49. (
  50.     (set #srcname "info")
  51. )
  52. (
  53.     (set #srcname "info_v39")
  54. )
  55. )
  56.  
  57. (copyfiles
  58.    (help @copyfiles-help)
  59.    (source #srcname)
  60.    (newname "info")
  61.    (dest @default-dest)
  62. )